home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 September (IDG) / Sep99.iso / MarkzScout™ 14-day trial / Scripts / Fonts By Page.M1S < prev    next >
Encoding:
Text File  |  1999-02-04  |  835 b   |  48 lines  |  [TEXT/MSCT]
  1. //
  2. // Fonts By Page.M1S: show font list for document
  3. // per page
  4. //
  5.  
  6. //
  7. // *************************************
  8. // Procedures
  9. // *************************************
  10. // 
  11.  
  12. proc fontProc
  13.   print "  " + it.name
  14.   fontCount = fontCount + 1
  15. endproc
  16.  
  17. proc pageProc
  18.   pageCount = pageCount + 1
  19.   pageList[pageCount] = it
  20. endproc
  21.  
  22. // 
  23. // Execute a procedure for all images
  24. //
  25. theJob = it
  26.  
  27. print "Complete Font List for " + theJob.NAME
  28.  
  29. pageCount = 0
  30. on page do pageProc
  31. scan theJob links uses,contains,overlaps
  32. scan reset
  33.  
  34. on font_request do fontProc
  35. page = 0
  36. while page < pageCount do
  37.   page = page + 1
  38.   print "Page " + pageList[page].pagenumber
  39.   fontCount = 0
  40.   scan pageList[page] links uses,contains,overlaps
  41.   if fontCount = 0 then
  42.     print "  -- No Fonts --"
  43.   endif
  44. wend
  45. scan reset
  46.  
  47. print "---------------------------------------"
  48.